Option Strict Off
Option Explicit On
Module MODtools
	
	' Send mail to broker -----------------------------------------------------------------------------------------------------------------------
	
	Public Function sendMailToBroker() As Object
		
        'Dim oWordDoc As Microsoft.Office.Interop.Word.Document

        'Dim i As Short

        'Dim aHeaders() As Object

        ''UPGRADE_WARNING: Array has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
        'aHeaders = New Object(){"QUANTITY", "MANUFACTURER", "PART NUMBER", "DATE CODE", "TARGET PRICE"}

        'oWordDoc = New Microsoft.Office.Interop.Word.Document

        'oWordDoc.Activate()

        'oWordDoc.Tables.Add(oWordDoc.Range, 2, UBound(aHeaders) + 1)

        'For i = 0 To UBound(aHeaders)

        '	'UPGRADE_WARNING: Couldn't resolve default property of object aHeaders(i). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
        '	oWordDoc.Tables.Item(1).Cell(1, i + 1).Range.Text = aHeaders(i)

        'Next 

        'oWordDoc.Range.Copy()

        'oWordDoc.Close(False)

        ''UPGRADE_NOTE: Object oWordDoc may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
        'oWordDoc = Nothing
		
		'OBS FRMmain.MAPISession1.SignOn
		'OBS FRMmain.MAPIMessages1.SessionID = FRMmain.MAPISession1.SessionID
		'OBS FRMmain.MAPIMessages1.Compose
		
		'OBS FRMmain.MAPIMessages1.send True
		
		'OBS FRMmain.MAPISession1.SignOff
		
	End Function
End Module